home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Args / ReadArgs.e < prev    next >
Encoding:
Text File  |  1994-10-02  |  550 b   |  19 lines
  1. /* Utilise readargs() pour prendre des parameters au lieu d'utiliser 'arg'.
  2.    C'est d'autant mieux qu'un seul argument est demandé.
  3.    Utilise le kick 2.0 */
  4.  
  5. OPT OSVERSION=37
  6.  
  7. PROC main()
  8.   DEF myargs:PTR TO LONG,rdargs
  9.   myargs:=[0,0,0]
  10.   IF rdargs:=ReadArgs('UNIT/N,DISK/A,NEW/S',myargs,NIL)
  11.     WriteF('UNIT=\d\n',Long(myargs[0]))      /* entier */
  12.     WriteF('DISK=\s\n',myargs[1])            /* chaine */
  13.     WriteF('NEW=\d\n',myargs[2])             /* booléen */
  14.     FreeArgs(rdargs)
  15.   ELSE
  16.     WriteF('Mauvais arguments!\n')
  17.   ENDIF
  18. ENDPROC
  19.